home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
ML_Class_1990_Venom.d64
/
source 2.2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
931b
|
59 lines
100 * = $1000
110 sei
120 lda #$7f
130 sta $dc0d
140 lda #$01
150 sta $d01a
160 lda #$1b
170 sta $d011
180 lda #$00
190 sta index
200 lda <irq
210 sta $0314
220 lda >irq
230 sta $0315
240 cli
250 rts
260 index :b 00
270 screen :b c7
280 irq inc $d019
290 lda screen
300 sta $d016
310 ldy #$78
320 loop dey
330 cpy #$00
340 bne loop
350 lda #$c8
360 sta $d016
370 lda #$f0
380 sta $d012
390 jsr scroll
400 jmp $ea31
410 scroll ldx #$02
420 loop2 dec screen
430 dex
440 cpx #$00
450 bne loop2
460 lda screen
470 cmp #$c0
480 bpl return
490 lda #$c7
500 sta screen
510 inc index
520 ldy index
530 lda text,y
540 sta $07e7
550 ldx #$00
560 loop3 lda $07c1,x
570 sta $07c0,x
580 inx
590 cpx #$28
600 bne loop3
610 return rts
620 text :b " [201][212][160][215][207][210][203][211]"
630 :b "[160][194][213][212][160][217][207][213][160][205][213][211][212][160][213][211][197][160][211][195][210][197][197][206][160][195][207][196][197][211]"
640 :b "[160][215][197][210][197][160][193][160]= 1[160]"
650 :b ".............................."
660 :b ".............................."
670 :b ".............................."